home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / SPLINE.ARC / BOUNCE.CTL next >
Encoding:
Text File  |  1985-11-20  |  3.3 KB  |  52 lines
  1. ;                              BOUNCING BALL                            
  2. ;                      Cyber Control motion control                     
  3. ;                      demonstration by Dann Parks                      
  4. ;                   Copyright 1989 Antic Publishing, Inc.               
  5. ;_______________________________________________________________________
  6. new:;                                  This section sets up the basics. 
  7. view solid:draft:;                     Boosting the ambient light       
  8. cam1 20,20,0:;                         helps define the sphere          
  9. zoom 175:perspec 500:ambient 2:;       against the background.          
  10. rstart "A:\BOUNCE",M
  11. ;-----------------------------------------------------------------------
  12. sph3 ball,14:;                         This builds the ball, colors it, 
  13. group a:clrgrp:select ball:scale 50:;  and makes it the right size.     
  14. ;-----------------------------------------------------------------------
  15. cube table,7:;                         The table is built from a cube   
  16. group b:clrgrp:select table:;          scaled vertically (with the loop)
  17. for squish=1 to 5:;                    to a thin slab and moved down    
  18. axisscale 110,110,50:;                 into position.
  19. next squish
  20. xlate 0,0,-1500
  21. ;-----------------------------------------------------------------------
  22. cube mkr,7:;                           This section makes a small marker
  23. group d:clrgrp:select mkr:;            that is moved into position ready
  24. for shrink=1 to 4:;                    to be rotated. Changing the 2100 
  25. scale 50:;                             to a lower number will will make 
  26. next shrink:;                          the ball bounce lower.
  27. moveto 2100,0,0
  28. ;-----------------------------------------------------------------------
  29. for bounce=1 to 30:;                            This is the main loop.  
  30. ;                                               It selects the marker   
  31. group d:select mkr:grpcent xpos,ypos,zpos:;     and determins its       
  32. height=zpos-1050:;                              Z-axis position.        
  33. ;                                               Subtracting 1050 from   
  34. group a:clrgrp:select ball:;                    the Z position makes    
  35. moveto 0,0,height:;                             the ball bounce in the  
  36. ;                                               center of the 3D world  
  37. group c:select ball,table:superview:record:;    rather that start at    
  38. ;                                               center and bounce up.   
  39. group d:select mkr:rotate 0,-6,0
  40. ;                                               The ball is selected    
  41. next bounce:;                                   and moved to it's new   
  42. ;                                               position and recorded.  
  43. ;                                               The marker is then      
  44. ;                                               rotated 6 degrees to    
  45. ;                                               a new position.         
  46. ;                                               (6 degrees is 180       
  47. ;                                               degrees divided by      
  48. ;                                               30 frames of animation. 
  49. ;-----------------------------------------------------------------------
  50. rstop
  51. end
  52.